home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 1994 January / ARPL-Jan94-Disc2of2-Partner-Edition.iso / Applications / Graphics / Cirrus Demo / Cirrus 2.0 Demo / AppleScript / Scripts / MultiScanAndSave < prev   
Encoding:
Text File  |  1993-06-16  |  511 b   |  21 lines  |  [TEXT/ToyS]
  1. set numberOfScans to 5
  2. set fileNameTemplate to "Intern 100:image"
  3.  
  4. tell application "Cirrus D-2.0"
  5.     set unit to inch
  6.     set value display to absolute
  7.     tell last frame of scanner "Beispiel Treiber"
  8.         repeat with i from 1 to numberOfScans
  9.             scan
  10.             tell file
  11.                 set type to "PICT"
  12.                 set Name to (fileNameTemplate & " " & i)
  13.                 set PICT scaling to original
  14.                 set PICT profile to attached
  15.                 set PICT compression to "Standard"
  16.                 set PICT quality to normal
  17.             end tell
  18.             save
  19.         end repeat
  20.     end tell
  21. end tell